object frmAjuste_ArqCarga: TfrmAjuste_ArqCarga
  Left = 134
  Top = 45
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Ajuste do Arquivo de Remessa'
  ClientHeight = 582
  ClientWidth = 802
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Shape3: TShape
    Left = 378
    Top = 419
    Width = 23
    Height = 81
    Brush.Color = cl3DLight
  end
  object Shape2: TShape
    Left = 378
    Top = 276
    Width = 23
    Height = 81
  end
  object Shape1: TShape
    Left = 378
    Top = 100
    Width = 23
    Height = 81
    Brush.Color = clMoneyGreen
  end
  object bIncluir: TSpeedButton
    Left = 378
    Top = 100
    Width = 23
    Height = 81
    Hint = 'Incluir Itens no Arquivo'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    OnClick = bIncluirClick
  end
  object bExcluir: TSpeedButton
    Left = 378
    Top = 276
    Width = 23
    Height = 81
    Hint = 'Excluir Itens do Arquivo'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333FF3333333333333003333333333333F77F33333333333009033
      333333333F7737F333333333009990333333333F773337FFFFFF330099999000
      00003F773333377777770099999999999990773FF33333FFFFF7330099999000
      000033773FF33777777733330099903333333333773FF7F33333333333009033
      33333333337737F3333333333333003333333333333377333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    OnClick = bExcluirClick
  end
  object bRetorna: TSpeedButton
    Left = 378
    Top = 419
    Width = 23
    Height = 81
    Hint = 'Retornar Itens p/ o Arquivo'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    OnClick = bRetornaClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 548
    Width = 802
    Height = 34
    Align = alBottom
    TabOrder = 0
    object bimprimir: TBitBtn
      Left = 15
      Top = 4
      Width = 139
      Height = 25
      Caption = '&Gravar'
      TabOrder = 0
      OnClick = bimprimirClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
    end
    object btncancelar: TBitBtn
      Left = 325
      Top = 4
      Width = 138
      Height = 25
      Caption = '&Cancelar'
      TabOrder = 1
      OnClick = btncancelarClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnfechar: TBitBtn
      Left = 639
      Top = 4
      Width = 138
      Height = 25
      Caption = '&Fechar'
      TabOrder = 2
      OnClick = btnfecharClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object dbgrdArq: TDBGrid
    Left = 405
    Top = 100
    Width = 395
    Height = 445
    Color = clWhite
    DataSource = dtsrc
    Options = [dgTitles, dgIndicator, dgRowLines, dgMultiSelect]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    OnDrawColumnCell = dbgrdArqDrawColumnCell
    OnDblClick = bExcluirClick
    OnKeyDown = dbgrdArqKeyDown
    Columns = <
      item
        Color = clBtnFace
        Expanded = False
        FieldName = 'Carga'
        Width = 51
        Visible = True
      end
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'Ordem'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Title.Caption = 'Ord.'
        Width = 33
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Produto'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Descr'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Title.Caption = '  '
        Width = 195
        Visible = True
      end>
  end
  object sg_carga: TStringGrid
    Left = 0
    Top = 100
    Width = 373
    Height = 257
    Hint = 'Aperte a barra de espa'#231'o p/ marcar ou desmarcar os itens'
    Color = clMoneyGreen
    DefaultRowHeight = 15
    FixedCols = 0
    RowCount = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -8
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
    ParentFont = False
    TabOrder = 2
    OnDblClick = bIncluirClick
    OnKeyDown = sg_cargaKeyDown
    OnSelectCell = sg_cargaSelectCell
    ColWidths = (
      70
      2
      31
      167
      91)
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 382
    Width = 373
    Height = 163
    Color = 14541539
    DataSource = dtsrcDel
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgMultiSelect]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    OnDblClick = bRetornaClick
    OnKeyDown = DBGrid1KeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'Carga'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Ordem'
        Title.Caption = 'Ord.'
        Width = 33
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Produto'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Descr'
        Title.Caption = 'Descri'#231#227'o'
        Width = 172
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = -1
    Top = 75
    Width = 374
    Height = 26
    BevelInner = bvLowered
    Caption = 'Itens da Carga'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object Panel3: TPanel
    Left = 0
    Top = 359
    Width = 374
    Height = 24
    BevelInner = bvLowered
    Caption = 'Itens Retirados do Arquivo'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
  end
  object Panel4: TPanel
    Left = 405
    Top = 75
    Width = 395
    Height = 26
    BevelInner = bvLowered
    Caption = 'Itens do Arquivo '
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object rgCarga: TRadioGroup
    Left = 0
    Top = 0
    Width = 802
    Height = 73
    Align = alTop
    Caption = 'Visualizar a carga n.'#186' :'
    Color = clBtnFace
    Columns = 5
    ParentColor = False
    TabOrder = 7
    OnClick = rgCargaClick
    OnExit = rgCargaClick
  end
  object pnlExcluir: TPanel
    Left = 448
    Top = 264
    Width = 317
    Height = 100
    Color = cl3DLight
    TabOrder = 8
    Visible = False
    object rgExcluir: TRadioGroup
      Left = 1
      Top = 1
      Width = 315
      Height = 64
      Align = alTop
      Caption = 'Excluir:'
      ItemIndex = 0
      Items.Strings = (
        'Somente o item selecionado'
        'Todos os itens ref. a msm carga/entrega/produto')
      TabOrder = 0
    end
    object bConfirma: TBitBtn
      Left = 100
      Top = 69
      Width = 117
      Height = 25
      Caption = '&Confirma'
      TabOrder = 1
      OnClick = bConfirmaClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333377F3333333333000033334224333333333333
        337337F3333333330000333422224333333333333733337F3333333300003342
        222224333333333373333337F3333333000034222A22224333333337F337F333
        7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
        33333337F73337F337F33333000033A33333A222433333337333337F337F3333
        0000333333333A222433333333333337F337F33300003333333333A222433333
        333333337F337F33000033333333333A222433333333333337F337F300003333
        33333333A222433333333333337F337F00003333333333333A22433333333333
        3337F37F000033333333333333A223333333333333337F730000333333333333
        333A333333333333333337330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object dtsrc: TDataSource
    DataSet = CDS
    Left = 408
    Top = 141
  end
  object CDS: TClientDataSet
    Aggregates = <>
    PacketRecords = 0
    Params = <>
    Left = 436
    Top = 141
    object CDSCarga: TStringField
      FieldName = 'Carga'
      Size = 6
    end
    object CDSOrdem: TStringField
      FieldName = 'Ordem'
      Size = 3
    end
    object CDSProduto: TStringField
      FieldName = 'Produto'
      Size = 15
    end
    object CDSDescr: TStringField
      FieldName = 'Descr'
      Size = 11
    end
    object CDSLido: TStringField
      FieldName = 'Lido'
      Size = 1
    end
    object CDSEntidade: TStringField
      FieldName = 'Entidade'
      Size = 5
    end
  end
  object CDSDel: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 340
    Top = 512
    object CDSDelCarga: TStringField
      FieldName = 'Carga'
    end
    object CDSDelOrdem: TStringField
      FieldName = 'Ordem'
    end
    object CDSDelProduto: TStringField
      FieldName = 'Produto'
    end
    object CDSDelEntidade: TStringField
      FieldName = 'Entidade'
    end
    object CDSDelDescr: TStringField
      FieldName = 'Descr'
    end
    object CDSDelLido: TStringField
      FieldName = 'Lido'
    end
  end
  object dtsrcDel: TDataSource
    DataSet = CDSDel
    Left = 312
    Top = 512
  end
end
